home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tech Arsenal 1
/
Tech Arsenal (Arsenal Computer).ISO
/
tek-13
/
me_cd22.zip
/
MUTT2.ZIP
/
BS_UNTAB.MUT
< prev
next >
Wrap
Text File
|
1992-04-27
|
458b
|
20 lines
;; bs_untab.mut : backup 1 character even if that char is a tab
;; C Durland Public Domain
(defun
BS-untabify
{
(int ts)
(if (not (previous-character)) (done)) ; at beginning of buffer
(if (looking-at "^I") ; change tab to blanks
{
(ts (tab-stops))(tab-stops 8)
(tab) ;; tabs-worth-of-blanks blank dot
(delete-previous-character)
(tab-stops ts)
})
(delete-character)
}
)